home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / yacas_alg / yacas_morphos / share / yacas / include / arrayclass.inl < prev    next >
Encoding:
Text File  |  2002-03-13  |  345 b   |  19 lines
  1.  
  2. inline LispInt ArrayClass::Size()
  3. {
  4.     return iSize;
  5. }
  6.  
  7. inline LispObject* ArrayClass::GetElement(LispInt aItem)
  8. {
  9.     LISPASSERT(aItem>0 && aItem<=iSize);
  10.     return iArray[aItem-1].Get();
  11. }
  12.  
  13. inline void ArrayClass::SetElement(LispInt aItem,LispObject* aObject)
  14. {
  15.     LISPASSERT(aItem>0 && aItem<=iSize);
  16.     iArray[aItem-1].Set(aObject);
  17. }
  18.  
  19.